perm filename BROWSE.TIM[TIM,LSP] blob
sn#772859 filedate 1984-10-08 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00024 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00003 00002 SAIL 100. 10. 4.
C00005 00003 SAIL 100. 10. 4.
C00007 00004 SAIL 100. 10. 4. (model B)
C00008 00005 Old Browse
C00009 00006 New Browse
C00010 00007 NIL
C00012 00008 Franz
C00021 00009 SCORE Oct 18, 1983
C00023 00010 DEC780CL
C00024 00011 InterLisp Vax 780
C00025 00012 PSL-20 3.3
C00026 00013 PSL-cray 3.2
C00028 00014 PSL-750 3.2
C00029 00015 PSL-780 3.2
C00030 00016 PSL-dn600 3.2
C00031 00017 PSL-dn300 3.2
C00032 00018 PSL-dn160
C00033 00019 PERQ 6/18/84
C00034 00020 PSL Numbers 7/31/84
C00035 00021 S-1
C00036 00022 LMI/Tyson 15-Aug-84 1920
C00037 00023 PSL-3081
C00038 00024 3600 Sept 12, 1984
C00039 ENDMK
C⊗;
;;; SAIL 100. 10. 4.
(fasload browse)
(timit)
Timing performed on Thursday 09/09/82 at 14:32:20.
Cpu Time = 13.635
Elapsed Time = 133.4
Wholine Time = 95.183333
GC Time = 40.438
Load Average Before = 1.96977687
Load Average After = 1.68995798
Average Load Average = 1.82986742
NIL
Timing performed on Thursday 09/09/82 at 14:35:00.
Cpu Time = 13.635
Elapsed Time = 228.583334
Wholine Time = 93.166667
GC Time = 39.524
Load Average Before = 1.89986777
Load Average After = 2.54795516
Average Load Average = 2.22391146
NIL
Timing performed on Thursday 09/09/82 at 14:38:59.
Cpu Time = 13.652
Elapsed Time = 174.683332
Wholine Time = 93.5
GC Time = 39.934
Load Average Before = 2.3873887
Load Average After = 2.08130932
Average Load Average = 2.234349
NIL
;;; SAIL 100. 10. 4.
(fasload browse)
(timit)(timit)(timit)
Timing performed on Sunday 02/13/83 at 14:27:32.
Cpu (- GC) Time = 13.896
Elapsed Time = 218.533333
Wholine Time = 100.266666
GC Time = 39.704
Load Average Before = 2.77352154
Load Average After = 2.62624335
Average Load Average = 2.69988245
NIL
Timing performed on Sunday 02/13/83 at 14:31:15.
Cpu (- GC) Time = 13.777
Elapsed Time = 216.216667
Wholine Time = 97.55
GC Time = 38.776
Load Average Before = 2.55250084
Load Average After = 2.45873046
Average Load Average = 2.50561565
NIL
Timing performed on Sunday 02/13/83 at 14:34:52.
Cpu (- GC) Time = 13.865
Elapsed Time = 258.616665
Wholine Time = 97.566667
GC Time = 38.935
Load Average Before = 2.4577961
Load Average After = 2.8594705
Average Load Average = 2.6586333
NIL
;;; SAIL 100. 10. 4. (model B)
(fasload browse)
(timit)
Timing performed on Sunday 02/27/83 at 20:20:13.
Cpu (- GC) Time = 12.043
Elapsed Time = 274.05
Wholine Time = 82.683333
GC Time = 35.696
Load Average Before = 0.76563597
Load Average After = 3.6514511
Average Load Average = 2.20854354
NIL
;;; Old Browse
D3
Elapsed 85.8
GC 34.7
CPU 51.1
PGFLT 49
Elapsed 86.5
GC 34.7
CPU 51.8
PGFLT 22
-------------
;;;New Browse
D2
Elapsed 517.0
SWAP 26.6
CPU 363.0
GC 127.0
PGFLT 546
SWPWRT 32
DSKOPS 533
Consecutive
Without Interrupts
Elapsed 370.0
SWAP 1.16
CPU 273.0
GC 96.4
PGFLT 87
DSKOPS 42
D2
7/5/83 without interrupts
Elapsed 342.0
Swap 10.1
GC 82.6
CPU 249.0
pgflts 266
dskops 197
D3
7/5/83
Elapsed 94.3
GC 41.9
CPU 52.5
pgflts 44
D1
1/25/84 with interrupts
Elapsed 300.0
Swap .256
CPU 174.0
GC 126.0
;;; NIL
BROWSE
Pass 1: changes to preserve semantics:
(subst nil nil ...) -> (copy-tree ...)
Change arithmetic functions to NIL's fixnum-only versions.
Bleagh! This bashes my nifty-keen random number generator!
Well, i don't think anything needs it.
Try 1:
cpu=1099.84,elapsed=1226.54,pagefaults=9664
The above time includes about a minute or two of poking around with
the debugger to see if the lisp had broken. I will not try a second
time to factor that out.
My face is red. I think what is going on here is that INTERN is a big
loser. For various brain-damaged reasons, INTERN is not what is
called by either the compiled-code loader, or the reader. Because it
is so brain-damaged but not really used (except in cases like this!),
its fixing has been put well towards the end of the queue. (The code
will be all-new anyway when common-lisp packages are put in.)
Because of this i'm not going to bother bumming anything (like
carcdr-switch, or even optimizing GETCHAR usage in any way).
;;; Franz
∂09-Oct-83 0946 jkf@ucbkim browse
Received: from UCBKIM by SU-AI with TCP/SMTP; 9 Oct 83 09:45:54 PDT
Received: by ucbkim.ARPA (4.6/4.2)
id AA17720; Sun, 9 Oct 83 09:49:22 PDT
Date: Sun, 9 Oct 83 09:49:22 PDT
From: John Foderaro (on an h19-u) <jkf@ucbkim>
Message-Id: <8310091649.AA17720@ucbkim.ARPA>
To: rpg@su-ai
Subject: browse
Cc:
--- Benchmark browse run on ucbkim at Sat Oct 8 01:30:11 PDT 1983 by jkf
--- cpu usage: 1:30am up 2 hrs, 4 users, load average: 1.25, 1.21, 1.28
Franz Lisp, Opus 38.81
=> [fasl browse.o]
t
=> benchmark: browse (file browse) , tranlinks: on, localf: no
executing form: (browse)
begin (14 146)
end (10229 5666)
runs 1
avg cpu time 78.25, avg gc time 92.0
benchmark: browse (file browse) , tranlinks: off, localf: no
executing form: (browse)
begin (10231 5666)
end (24233 10336)
runs 1
avg cpu time 155.5333333333333, avg gc time 77.83333333333333
nil
=> Franz Lisp, Opus 38.81
=> [fasl browse-l.o]
t
=> benchmark: browse (file browse) , tranlinks: on, localf: yes
executing form: (browse)
begin (20 146)
end (9739 5484)
runs 1
avg cpu time 73.01666666666667, avg gc time 88.96666666666667
benchmark: browse (file browse) , tranlinks: off, localf: yes
executing form: (browse)
begin (9740 5484)
end (22520 10122)
runs 1
avg cpu time 135.7, avg gc time 77.3
nil
=> Franz Lisp, Opus 38.81
=> [load browse.l]
[fasl benchmac.o]
t
=> benchmark: browse (file browse) , tranlinks: on, interpreted
executing form: (browse)
begin (49 146)
end (80821 5494)
runs 1
avg cpu time 1257.066666666667, avg gc time 89.13333333333333
benchmark: browse (file browse) , tranlinks: off, interpreted
executing form: (browse)
begin (80824 5494)
end (160988 10343)
runs 1
avg cpu time 1255.25, avg gc time 80.81666666666667
nil
=> --- cpu usage: 2:36am up 3:06, 0 users, load average: 1.24, 1.22, 1.17
--- end of benchmark browse
--- Benchmark browse run on ucbmatisse at Fri Oct 7 11:11:42 PDT 1983 by jkf
--- cpu usage: 11:11am up 3 days, 22:58, 3 users, load average: 1.05, 1.15, 1.15
Franz Lisp, Opus 38.81
=> [fasl browse.o]
t
=> benchmark: browse (file browse) , tranlinks: on, localf: no
executing form: (browse)
begin (74 149)
end (15742 8457)
runs 1
avg cpu time 122.6666666666667, avg gc time 138.4666666666667
benchmark: browse (file browse) , tranlinks: off, localf: no
executing form: (browse)
begin (15745 8457)
end (39106 16552)
runs 1
avg cpu time 254.4333333333333, avg gc time 134.9166666666667
nil
=> Franz Lisp, Opus 38.81
=> [fasl browse-l.o]
t
=> benchmark: browse (file browse) , tranlinks: on, localf: yes
executing form: (browse)
begin (74 151)
end (15382 8427)
runs 1
avg cpu time 117.2, avg gc time 137.9333333333333
benchmark: browse (file browse) , tranlinks: off, localf: yes
executing form: (browse)
begin (15384 8427)
end (36085 16379)
runs 1
avg cpu time 212.4833333333333, avg gc time 132.5333333333333
nil
=> Franz Lisp, Opus 38.81
=> [load browse.l]
[fasl benchmac.o]
t
=> benchmark: browse (file browse) , tranlinks: on, interpreted
executing form: (browse)
begin (121 154)
end (129293 8550)
runs 1
avg cpu time 2012.933333333333, avg gc time 139.9333333333333
benchmark: browse (file browse) , tranlinks: off, interpreted
executing form: (browse)
begin (129367 8620)
end (258983 16520)
runs 1
avg cpu time 2028.6, avg gc time 131.6666666666667
nil
=> --- cpu usage: 1:00pm up 4 days, 47 mins, 4 users, load average: 1.00, 1.13, 1.28
--- end of benchmark browse
--- Benchmark browse run on ucbmike at Fri Oct 7 12:19:34 PDT 1983 by jkf
--- cpu usage: 12:19pm up 2:51, 0 users, load average: 1.01, 1.03, 1.04
Franz Lisp, Opus 38.79
-> [fasl browse.o]
t
-> benchmark: browse (file browse) , tranlinks: on, localf: no
executing form: (browse)
begin (28 259)
end (24810 16798)
runs 1
avg cpu time 137.3833333333333, avg gc time 275.65
benchmark: browse (file browse) , tranlinks: off, localf: no
executing form: (browse)
begin (24815 16798)
end (53430 30307)
runs 1
avg cpu time 251.7666666666667, avg gc time 225.15
nil
-> Franz Lisp, Opus 38.79
-> [fasl browse-l.o]
t
-> benchmark: browse (file browse) , tranlinks: on, localf: yes
executing form: (browse)
begin (29 259)
end (24629 16790)
runs 1
avg cpu time 134.4833333333333, avg gc time 275.5166666666667
benchmark: browse (file browse) , tranlinks: off, localf: yes
executing form: (browse)
begin (24634 16790)
end (51791 30276)
runs 1
avg cpu time 227.85, avg gc time 224.7666666666667
nil
-> Franz Lisp, Opus 38.79
-> [load browse.l]
[fasl benchmac.o]
t
-> benchmark: browse (file browse) , tranlinks: on, interpreted
executing form: (browse)
begin (144 325)
end (155181 16269)
runs 1
avg cpu time 2318.216666666667, avg gc time 265.7333333333333
benchmark: browse (file browse) , tranlinks: off, interpreted
executing form: (browse)
begin (155188 16269)
end (307376 29686)
runs 1
avg cpu time 2312.85, avg gc time 223.6166666666667
nil
-> --- cpu usage: 2:22pm up 4:54, 0 users, load average: 1.01, 1.03, 1.03
--- end of benchmark browse
;;; SCORE Oct 18, 1983
LOAD(BROWSE.IL)
LOAD(BROWSE.COM)
MAKEFILE(BROWSE)
BCOMPL(BROWSE)
ST
(BROWSE)
∧
TRACE(SEED)
RELINK(WORLD)
BROKENFNS
(INIT 100 10 4
(QUOTE ((A A A B B B B A A A A A B B A A A)
(A A B B B B A A (A A)
(B B))
(A A A B (B A)
B A B A]
(QUOTE ((*A ?B *B ?B A *A A *B *A)
(*A *B *B *A (*A)
(*B))
(? ? *(B A)* ? ?])
PP BROWSE
PP BROWSE
(DEFINEQ
(BROWSE
[LAMBDA NIL
(SEED)
(INVESTIGATE [RANDOMIZE (INIT 100 10 4
(QUOTE ((A A A B B B B A A A A A B B
A A A)
(A A B B B B A A
(A A)
(B B))
(A A A B (B A)
B A B A]
(QUOTE ((*A ?B *B ?B A *A A *B *A)
(*A *B *B *A (*A)
(*B))
(? ? *(B A)* ? ?]))
(BROWSE)
;results
488945 Conses
70.321 seconds
26.981 seconds GC time.
;;; DEC780CL
cpu + probability x gc
BROWSE 59 + 0.3 x 24
*************************************************************************
Name of VAXLisp VAXLisp VAXLisp VAXLisp
application U1.0-20 U1.0-20 U1.0-20 U1.0-20
Benchmark VMS V3.5 VMS V3.5 VMS V3.5 VMS V3.6
730 (No FPA) 750 (No FPA) 780 785 (No FPA)
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
Browse 540.58 195.11 118.51 73.30
(GC 380.50) (GC 164.05) (GC 86.50) (GC 59.30)
;;; InterLisp Vax 780
BROWSE:
←(TIME (BROWSE]
489007 conses
155.232 seconds
NIL
←LOAD(browse.v]
compiled on 14-AUG-84 16:44:49
File Created:25-FEB-83 13:56:49
BROWSECOMS
/lisp/rbates/lisp/dick/BROWSE.V
←(TIME (BROWSE]
489007 conses
111.536 seconds
NIL
;;; PSL-20 3.3
Timing performed on DEC-20
23-Mar-84 05:04:29 .
*** Garbage collection starting
*** GC 4: time 1509 ms, 244799 recovered, 244799 free
*** Garbage collection starting
*** GC 5: time 1688 ms, 244834 recovered, 244835 free
*** Garbage collection starting
*** GC 6: time 1699 ms, 244796 recovered, 244797 free
........................................
Cpu (- GC) Time = 23.819 secs
Elapsed Time = 31.0 secs
GC Time = 4.896 secs
Load Average Before = 1.1
Load Average After = 1.1
Average Load Average = 1.1
;;; PSL-cray 3.2
;;; Times are in milliseconds
08:20:50 001:56.881 browse
08:22:11 002:23.844 Cpu (- GC) Time = 4676.80400000 secs$2 ε
08:22:13 002:24.365 Elapsed Time = 0. secs
08:22:17 002:24.885 GC Time = 5326.86400000 secs$2 ε
08:22:19 002:25.406 Load Average Before = 0
08:22:21 002:25.926 Load Average After = 0
08:22:24 002:26.447 Average Load Average = 0.
browse
Timing performed on CRAY
23-apr-84 12:00:00.
........................................
Cpu (- GC) Time = 4704.19000000 secs
Elapsed Time = 0. secs
GC Time = 3664.22900000 secs
Load Average Before = 0
Load Average After = 0
Average Load Average = 0.
;;; PSL-750 3.2
Cpu (- GC) Time = 75.497 secs
Elapsed Time = 0.0 secs
GC Time = 16.082 secs
Load Average Before = 0
Load Average After = 0
Average Load Average = 0.0
;;; PSL-780 3.2
Cpu (- GC) Time = 41.157 secs
Elapsed Time = 0.0 secs
GC Time = 9.129 secs
Load Average Before = 0
Load Average After = 0
Average Load Average = 0.0
;;; PSL-dn600 3.2
;;; PSL-dn300 3.2
;;; PSL-dn160
;;; PERQ 6/18/84
Around 494.79 (stopwatch)
7/31/84
Benchmark % of old time Time Machine used
Browse 88% 439.98 Joe's T2
Browse 359.63
;;; PSL Numbers 7/31/84
|KL-10b| 20-60 | 20-60 | 3600 | 20-60 | CRAY | 12Mhz| HP-UX
Benchmark |MACLSP|InterLsp|PSL 3.2| ZetaL|PSL 3.3|PSL3.2| HP200|PSL3.3
--------------------------------------------------------------------------
Browse | 13.64| 70.321| 23.82 | 32.1 | 23.06| 4.678| 39.84| 42.99
;;; S-1
∂03-Aug-84 2331 EJG@S1-A.ARPA S-1 Lisp BROWSE time!!
Received: from S1-A.ARPA by SU-AI.ARPA with TCP; 3 Aug 84 23:31:15 PDT
Date: 3 Aug 84 2325 PST
From: Erik Gilbert <EJG@S1-A.ARPA>
Subject: S-1 Lisp BROWSE time!!
To: RPG@SU-AI.ARPA
Got it! 10.2 seconds - vs. PSL-Cray of 10.0!! (With a GC and
corresponding I/O for segment release messages, it took 20.4
seconds. In the 16MW configuration, a GC happens about one in
every six executions of (BROWSE).)
;;; LMI/Tyson 15-Aug-84 1920
Timing 1 Timing 2
Boyer 53.7 (5.8) 50.8 (3.9)
Browse 85.6 (9.0) 82 (7.5)
;;; LMI/Carrette 9-4-84
Test MacroCompiled Microcompiled
BROWSE 56.5 TDB
;;; PSL-3081
| CRAY | BPS 400K bytes| BPS 150K | BPS 150K
Benchmark | PSL 3.2| HEAP 800K bytes| HEAP 1510K | HEAP 1510K
---------------------------------------------------------------------------
Browse | 4.677 | 3.802 + 4.015 | 3.849 + 2.465 | 3.795 + 2.545
;;; 3600 Sept 12, 1984
Real, no IFU Real, IFU Ratio CPU, no IFU CPU, IFU Ratio
Browse 41.73 32.16 1.30 41.01 30.13 1.36